home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / CUA_SAMP.ZIP / ACTUALIZ.PRG next >
Text File  |  1994-10-12  |  2KB  |  54 lines
  1. *****************************************************************
  2. * FICHERO: ACTUALIZ.PRG
  3. * Muestra la utilización de OnGotFocus para actualizar los campos
  4. * de datos enlazados con la ficha con la base de datos. Ejemplo
  5. * del capítulo 22 de la "Guía del Programador".
  6. *****************************************************************
  7.  
  8. *---------------------------------------------
  9. * Define la ficha que muestra tres campos de la
  10. * base de datos ARTICULO.DBF de EJEMPLOS. El
  11. * procedimiento RGRefresh de OnGotFocus actualiza
  12. * la ficha cada vez que obtiene el foco.
  13. *---------------------------------------------
  14. DEFINE FORM ReadGoods FROM 10,12 TO 18,60 ;
  15.    PROPERTY ;
  16.       Text "Artículos en almacén", ;
  17.       OnGotFocus RGRefresh, ;
  18.       OnOpen RGOpen, ;
  19.       OnClose RGClose
  20.  
  21. DEFINE TEXT t1 OF ReadGoods AT 1,1 ;
  22.    PROPERTY Text "Artículo:", Label .F.
  23. DEFINE ENTRYFIELD PartName OF ReadGoods AT 1,14 ;
  24.    PROPERTY DataLink "NOM_ART", Width 32
  25.  
  26. DEFINE TEXT t2 OF ReadGoods AT 3,1 ;
  27.    PROPERTY Text "Descripción:", Label .F.
  28. DEFINE ENTRYFIELD Descr OF ReadGoods AT 3,14 ;
  29.    PROPERTY DataLink "DESCRIP", Width 32
  30.  
  31. DEFINE TEXT t3 OF ReadGoods AT 5,1 ;
  32.    PROPERTY Text "En almacén:", Label .F.
  33. DEFINE ENTRYFIELD OnHand OF ReadGoods AT 5,14 ;
  34.    PROPERTY DataLink "CAN_ALM", Width 6
  35.  
  36. * Código que define el resto de la ficha y que permite seleccionar artículos
  37.  
  38. lVoid = ReadGoods.Open()        && Abre la ventana de ficha.
  39.  
  40. PROCEDURE RGOpen                && Controlador del suceso OnOpen de ReadGoods.
  41.    USE ARTICULO IN 1 NOUPDATE ORDER COD_ART
  42. RETURN
  43.  
  44. PROCEDURE RGRefresh             && Controlador del suceso OnGotFocus del ReadGoods.
  45.    lVoid = this.Refresh()       && Actualiza la ficha con los datos actuales.
  46. RETURN
  47.  
  48. PROCEDURE RGClose               && Controlador del suceso OnClose de ReadGoods.
  49.    USE IN 1                     && Cierra la base de datos ARTICULO
  50.    lVoid = ReadGoods.Release()  && Libera de memoria la ficha y su ya
  51.    RELEASE ReadGoods            && nula variable de referencia de objeto.
  52. RETURN
  53. * EOP ACTUALIZ.PRG
  54.